home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / system / DangerousDos.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  3.1 KB  |  90 lines
  1. "----------------------------------------------------------------------"
  2. " DangerousDOS Class implements some of the more intrusive AmigaDOS    "
  3. " functions into AmigaTalk.                                            "
  4. ""
  5. " WARNING:  You should know what you're doing to the Amiga OS before   "
  6. "           messing with this Class, or any other System Class!        "
  7. ""
  8. " Please read AmigaTalk:Help/ADos.guide for guidance on how to use the "
  9. " methods of this Class -- it's really getting hard to document each   "
  10. " AmigaTalk Class in two or more places!                               "
  11. " ---------------------------------------------------------------------"
  12.  
  13. Class DangerousDOS :Object
  14. [
  15.    addDosEntry: dosListObject
  16.       ^ <primitive 248 0 dosListObject>
  17. |               
  18.    allocDosObject: type tags: tagArray   " Tested "
  19.       ^ <primitive 248 1 type tagArray>
  20. |
  21.    attemptLockDosList: flags
  22.       ^ <primitive 248 2 flags>
  23. |         
  24.    cliInitNewCLI: dosPacketObject
  25.       ^ <primitive 248 3 dosPacketObject>
  26. |
  27.    cliInitRun: dosPacketObject
  28.       ^ <primitive 248 4 dosPacketObject>
  29. |         
  30.    createNewProcess: tagArray
  31.       ^ <primitive 248 5 tagArray>
  32. |         
  33.    createProcess: processName priority: pri segments: bptrSegmentList stack: stackSize
  34.       ^ <primitive 248 6 processName pri bptrSegmentList stackSize>
  35. |         
  36.    deleteVar: varName flags: f
  37.       ^ <primitive 248 7 varName f>
  38. |         
  39.    makeDeviceProcess: deviceName
  40.       ^ <primitive 248 8 deviceName>
  41. |         
  42.    exitProgram: returnCode
  43.       <primitive 248 9 returnCode>
  44. |         
  45.    freeArgs: rdArgsObject
  46.       <primitive 248 10 rdArgsObject>
  47. |         
  48.    freeDeviceProcess: devProcessObject
  49.       <primitive 248 11 devProcessObject>
  50. |         
  51.    freeDosEntry: dosListObject
  52.       <primitive 248 12 dosListObject>
  53. |         
  54.    freeDosObject: dosObject type: t    " Tested "
  55.       <primitive 248 13 t dosObject>
  56. |         
  57.    fileWrite: bptrFileHandle to: aBuffer blkSize: blockLength count: blockCount
  58.       ^ <primitive 248 14 bptrFileHandle aBuffer blockLength blockCount>
  59. |         
  60.    inhibit: fileSystem flags: flag
  61.       ^ <primitive 248 15 fileSystem flag>
  62. |         
  63.    replyPacket: dosPacketObject primaryResult: result1 secondaryResult: result2
  64.       <primitive 248 16 dosPacketObject result1 result2>
  65. |         
  66.    runCommand: bptrSegmentList args: argString count: argSize stack: stackSize
  67.       ^ <primitive 248 17 bptrSegmentList stackSize argString argSize>
  68. |         
  69.    seek: bptrFileHandle to: position mode: mode
  70.       ^ <primitive 248 18 bptrFileHandle position mode>
  71. |         
  72.    selectInput: bptrFileHandle
  73.       ^ <primitive 248 19 bptrFileHandle>
  74. |         
  75.    selectOutput: bptrFileHandle
  76.       ^ <primitive 248 20 bptrFileHandle>
  77. |         
  78.    setArgumentString: argString
  79.       ^ <primitive 248 21 argString>
  80. |         
  81.    setFileSize: bptrFileHandle at: offset mode: mode
  82.       ^ <primitive 248 22 bptrFileHandle offset mode>
  83. |         
  84.    setVBuf: bptrFileHandle to: aBuffer type: t bufferSize: size
  85.       ^ <primitive 248 23 bptrFileHandle aBuffer t size>
  86. |         
  87.    writeFile: bptrFileHandle with: aBuffer ofSize: length
  88.       ^ <primitive 248 24 bptrFileHandle aBuffer length>
  89. ]
  90.